-- card: 2961 from stack: in
-- bmap block id: 2163
-- flags: 0000
-- background id: 2775
-- name: Intro
----- HyperTalk script -----
on hideCredits
  hide card button "I read this."
  hide card button "Philosophy"
  hide card field "message"
  hide card button "Trap Mouse"
end hideCredits

on closeCard
  push card
end closeCard


-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=354 top=256 right=281 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dragger
----- HyperTalk script -----
on mouseUp
  visual venetian blinds to black
  go to stack "DragTracer"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=109 top=122 right=142 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: info
----- HyperTalk script -----
on mouseUp
  show card button "Trap Mouse"
  show card field "info"
  show card button "ok"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=109 top=171 right=191 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: example
----- HyperTalk script -----
on mouseUp
  visual venetian blinds to black
  go to card "Example"
end mouseUp



-- part 4 (field)
-- low flags: 00
-- high flags: 2004
-- rect: left=71 top=117 right=245 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Info
----- HyperTalk script -----
on mouseUp
  hide card button "ok"
  hide card field "Info"
  hide card button "Trap Mouse"
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=109 top=147 right=167 bottom=445
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: message
----- HyperTalk script -----
on mouseUp
  show card button "Trap Mouse"
  show card field "message"
  show card button "I read this."
  show card button "Philosophy"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=204 right=224 bottom=445
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: use it
----- HyperTalk script -----
on mouseUp
  visual venetian blinds to black
  go to card "Drag Screen"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=105 top=118 right=227 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Trap Mouse
----- HyperTalk script -----
on mouseUp
  send mouseUp to this card
end mouseUp



-- part 9 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=43 top=32 right=304 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: message
----- HyperTalk script -----
on mouseup
  hideCredits
end mouseup


-- part 10 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=369 top=231 right=259 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I read this.
----- HyperTalk script -----
on mouseUp
  hideCredits
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=419 top=220 right=239 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  hide card button "ok"
  hide card field "Info"
  hide card button "Trap Mouse"
end mouseUp



-- part 16 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=49 top=232 right=260 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Philosophy
----- HyperTalk script -----
on mouseUp
  show card field "more info"
  show card button "Yeah, maybe"
end mouseUp



-- part 15 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=44 top=33 right=305 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: more info
----- HyperTalk script -----
on mouseUp
  hide card button "Yeah, maybe"
  hide card field "more info"
end mouseUp


-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=49 top=49 right=75 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: say hi
----- HyperTalk script -----
on mouseUp
  speak "Welcome to drag tracer."
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=189 top=265 right=288 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yeah, maybe
----- HyperTalk script -----
on mouseUp
  hide card button "Yeah, maybe"
  hide card field "more info"
end mouseUp



-- part contents for card part 4
----- text -----
   This stack can be utilized to create a field containing the horizontal and vertical coordinates of a path that you trace on the screen.  The coordinates are stored in the form ; 
                        Drag from x1,y1  to  x2,y2
                        Drag from x2,y2  to  x3,y3  (etc...)
   These commands can then be pasted into a script, and may be used to create animation or other special effects.




-- part contents for card part 9
----- text -----
               DragTracer version 1.0, September 27th, 1987

             This stackware was created out of necessity by:

                           _____Paul A. Leonard______

   Feel free to pass this around.  Distribute it to any on line services that you know of, but please leave all notices intact.

   Hopefully you will feel a compelling, Mac-fanatic type need to compensate me for my efforts.  In that case, I can be reached at;

                                      3829 Lees Ave
                                Long Beach, CA 90808

    I welcome any comments you may have regarding this stack.


-- part contents for card part 15
----- text -----
           
             DragTracer version 1.0, September 27th, 1987

    I believe it is alright for a stackware author (herein referred to as a stacker) to request a shareware fee for stackware that has taken some effort, but I do not feel it is proper to protect or restrict the user level.

   The scripts of a stack should be available for all to see, so that other stackers might advance their own stacks with any useful methods they may find, or may comment on a script to an author to suggest improvements.  One should also have access to scripts so that they can customize an existing stack to better suit their needs.